      integer imaskdim
      parameter (imaskdim = 60)
      integer imask(imaskdim,imaskdim,imaskdim)
      common /mask/ imask
